const.asp 星梦奇缘交友网 1 - ASP源码程序

www.gusucode.com > 星梦奇缘交友网 1 > 星梦奇缘交友网 1.0源码程序/love/admin/inc/const.asp
    <!-- #include file="../../const.asp" -->
<!--#include file="../../Config.asp"-->
<%
If Session("flag")<> "" Then Master = True
MemberName = checkStr(Session("MemberName"))
MemberWord = checkStr(Trim(Request.Cookies(Forum_sn)("password")))
UserHidden = Request.Cookies(Forum_sn)("userhidden")
UserID = Trim(Request.Cookies(Forum_sn)("UserID"))
If IsNumeric(UserHidden) = 0 or Userhidden = "" Then UserHidden = 2
If IsNumeric(UserID) = 0 Or UserID="" Then UserID=0
UserID = Clng(UserID)
MemberClass = checkStr(Request.Cookies(Forum_sn)("userclass"))

'页面错误提示信息
Sub Ms_error()
	Response.Write"<br>"
	Response.Write"<table cellpadding=3 cellspacing=1 align=center class=""tableBorder"" style=""width:75%"">"
	Response.Write"<tr align=center>"
	Response.Write"<th width=""100%"" height=25 colspan=2>错误信息"
	Response.Write"</td>"
	Response.Write"</tr>"
	Response.Write"<tr>"
	Response.Write"<td width=""100%"" class=""Forumrow"" colspan=2>"
	Response.Write ErrMsg
	Response.Write"</td></tr>"
	Response.Write"<tr>"
	Response.Write"<td class=""Forumrow"" valign=middle colspan=2 align=center><a href=""javascript:history.go(-1)""><<返回上一页</a></td></tr>"
	Response.Write"</table>"
	footer()
	Response.End 
End Sub
Sub footer()
	Response.Write"<table align=center >"
	Response.Write "<tr align=center><td width=""100%"" class=copyright>"
	Response.Write"Mslove v3.0 , Copyright (c) 2003-2005 <a href=""http://www.suww.net"" target=""_blank""><font color=#708796><b>suww<font color=#CC0000>.net</font></b></font></a>. All Rights Reserved ."
	Response.Write"</td>"
	Response.Write"</tr>"
	Response.Write"</table>"
	Response.Write "</body>"
	Response.Write "</html>"
End Sub
Sub Head()
	Response.Write "<!DOCTYPE HTML PUBLIC ""-//W3C//DTD HTML 4.01 Transitional//EN"">"
	Response.Write Chr(10)	
	Response.Write "<html>"
	Response.Write Chr(10)	
	Response.Write "<head>"
	Response.Write Chr(10)	
	Response.Write "<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"">"
	Response.Write Chr(10)	
	Response.Write "<meta name=keywords content=""热线交友,热线系统,Mslove"">"
	Response.Write Chr(10)	
	Response.Write "<meta name=""description"" content=""Design By www.suww.net"">"
	Response.Write Chr(10)	
	Response.Write "<title>"& webname&"-管理页面</title>"
	Response.Write Chr(10)
	Response.Write "<link href='admin_css.css' rel='stylesheet' type='text/css'>"
	Response.Write Chr(10)
	Response.Write "</head>"
	Response.Write "<script src=""images/admin.js"" type=""text/javascript""></script><script src=""../inc/main.js"" type=""text/javascript""></script>"
	Response.Write Chr(10)
	Response.Write "<body leftmargin=""0"" topmargin=""0"" marginheight=""0"" marginwidth=""0"">"
	Response.Write Chr(10)
End Sub
Sub Ms_suc(info)
	Response.Write"<br>"
	Response.Write"<table cellpadding=0 cellspacing=0 align=center class=""tableBorder"" style=""width:75%"">"
	Response.Write"<tr align=center>"
	Response.Write"<th width=""100%"" height=25 colspan=2>成功信息"
	Response.Write"</td>"
	Response.Write"</tr>"
	Response.Write"<tr>"
	Response.Write"<td width=""100%"" class=""forumRowHighlight"" colspan=2 height=25>"
	Response.Write info
	Response.Write"</td></tr>"
	Response.Write"<tr>"
	Response.Write"<td class=""forumRowHighlight"" valign=middle colspan=2 align=center><a href="&Request.ServerVariables("HTTP_REFERER")&" ><<返回上一页</a></td></tr>"
	Response.Write"</table>"
End Sub

Function SysGroupName(ParentGID)
	Dim GroupName
	Select Case ParentGID
	Case 1
		GroupName = "系统用户组 >> "
	Case 2
		GroupName = "特殊用户组 >> "
	Case 3
		GroupName = "注册用户组 >> "
	Case 4
		GroupName = "多属性用户组 >> "
	Case 5
		GroupName = "VIP用户组 >> "
	Case 0
		GroupName = "系统默认权限编辑 >> "
	End Select
	SysGroupName = GroupName
End Function
%>